class: center, middle, inverse, title-slide .title[ # Module 1: The Basics ] .subtitle[ ## Loading Data and Project Questions ] .author[ ### Dr. Christopher Kenaley ] .institute[ ### Boston College ] .date[ ### 2026/09/11 ] --- # Today we'll ..... .pull-left[ - the pipe (`%>%`) and loading data - open discussion Module Project 1 ] --- # Reminder 1 .pull-left[ - make personal repo - make me (@ckenaley) a collaborator - make it private!! ] --- # Questions ahead of Module Project 1 - Due this Sunday 11:59 pm - Commit to assigned team repo - Each member commits own report (R script + figures) --- # Loading data - `readr` package has several handy functions. - `read_csv()` most handy ``` r d <- read_csv("https://bcorgbio.github.io/class/data/coyote.csv") head(d) ``` ``` ## # A tibble: 6 × 10 ## id species Region state County Town Locality Lat Long Year ## <chr> <chr> <chr> <chr> <chr> <chr> <chr> <dbl> <dbl> <dbl> ## 1 adk2706 Canis latrans northeast New Y… <NA> <NA> <NA> 43.8 -75.0 2007 ## 2 adk2798 Canis latrans northeast New Y… <NA> <NA> <NA> 43.9 -74.7 NA ## 3 adk2801 Canis latrans northeast New Y… <NA> <NA> <NA> 43.9 -74.7 NA ## 4 adk2833 Canis latrans northeast New Y… <NA> <NA> <NA> 43.9 -74.8 NA ## 5 adk2845 Canis latrans northeast New Y… <NA> <NA> <NA> 42.8 -73.8 NA ## 6 adk2853 Canis latrans northeast New Y… Herkm… Lost… Lost Cr… 43.8 -75.0 2002 ``` --- # Loading data ``` r d%>% group_by(state)%>% dplyr::summarize(n=n())%>% ggplot(aes(x=state,y=n))+ geom_bar(stat="identity")+ coord_flip() ``` <!-- -->